Inference at * 1 
Iof proof for Lemma zip wf:

.....subterm..... T:t2:n

1. T1 : Type
2. T2 : Type
3. T1 List
4. u : T1
5. v : T1 List
6. bs:(T2 List). zip(v;bs)  ((:T1  T2) List)
7. T2 List
8. T2
9. v1 : T2 List
10. rec-case(v1) of [] => [] | b::bs' => .[<u, b> / zip(v;bs')]  ((:T1  T2) List)
  zip(v;v1)  ((:T1  T2) List) 

latex

 by InteriorProof Obvious 

latex

 .

Definitions

t  T, {T}, x:A. B(x)